home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok66.lha / IntuiPointer / IntuiPointerDemo.mod < prev    next >
Encoding:
Text File  |  1993-08-16  |  865 b   |  33 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.     IntuiPointerDemo.mod
  3.   :Contents.    Na was wohl
  4.   :Author.      Christian Stiens
  5.   :Address.     Heustiege 2, W-4710 Lüdinghausen
  6.   :Copyright.   public domain
  7.   :Language.    Oberon-2
  8.   :Translator.  Amiga Oberon V2.20d
  9.   :Imports.     IntuiPointer
  10.   :Remark.      Dies ist nur ein Demo-Programm. Es kann in manchen
  11.   :Remark.      Umgebungen nicht funktionieren oder gar abstürzen. [fbs]
  12. ---------------------------------------------------------------------------*)
  13.  
  14. MODULE IntuiPointerDemo;
  15.  
  16. IMPORT d:Dos,I:Intuition,ip:IntuiPointer,io;
  17.  
  18. VAR win:I.WindowPtr;
  19.     ch: CHAR;
  20.  
  21. BEGIN
  22.   d.Delay(5);
  23.   win := I.int.activeWindow;
  24.   IF win # NIL THEN
  25.     ip.Busy(win);
  26.     io.WriteString(">> RETURN <<\n");
  27.     io.Read(ch);
  28.     ip.Normal(win);
  29.   END;
  30. END IntuiPointerDemo.
  31.  
  32.  
  33.